home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New Farm Program.cpt / New Farm Program / card_4248.txt < prev    next >
Text File  |  1988-02-06  |  11KB  |  519 lines
  1. -- card: 4248 from stack: in
  2. -- bmap block id: 4850
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: expense
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=51 top=85 right=248 bottom=148
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 4000
  25. -- rect: left=196 top=254 right=271 bottom=249
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: total own
  34. ----- HyperTalk script -----
  35. on closefield
  36.   set numberFormat to "00.00"
  37.   put 0.00 into runningTotal
  38.   repeat with i=1 to number of lines in card field "cost"
  39.     add to runningtotal
  40.   end repeat
  41.   put runningTotal into card field "total"
  42. end closefield
  43.  
  44.  
  45. -- part 5 (button)
  46. -- low flags: 00
  47. -- high flags: A004
  48. -- rect: left=201 top=282 right=300 bottom=245
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name:  Total
  57. ----- HyperTalk script -----
  58.  
  59. on mouseUp
  60.   set numberFormat to "00.00"
  61.   get card field "own 2" + card field "own 3"+ card field "own 4" + card field "own 5" + card field "own 6" + card field "own 7" + card field "own 8" + card field "own 9" + card field "own 1" + card field "own 10"
  62.   put it into card field "total own"
  63.  
  64. end mouseUp
  65.  
  66.  
  67. -- part 8 (field)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=196 top=229 right=244 bottom=262
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Own 10
  79.  
  80.  
  81. -- part 9 (field)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=196 top=213 right=228 bottom=262
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Own 9
  93.  
  94.  
  95. -- part 10 (field)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=196 top=197 right=212 bottom=262
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Own 8
  107.  
  108.  
  109. -- part 11 (field)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=196 top=181 right=196 bottom=262
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Own 7
  121.  
  122.  
  123. -- part 12 (field)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=196 top=165 right=180 bottom=262
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 0
  130. -- font id: 3
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Own 6
  135.  
  136.  
  137. -- part 13 (field)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=196 top=149 right=164 bottom=262
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 3
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Own 5
  149.  
  150.  
  151. -- part 14 (field)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=196 top=133 right=148 bottom=262
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Own 4
  163.  
  164.  
  165. -- part 15 (field)
  166. -- low flags: 00
  167. -- high flags: 0000
  168. -- rect: left=196 top=117 right=132 bottom=262
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 0
  172. -- font id: 3
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Own 3
  177.  
  178.  
  179. -- part 16 (field)
  180. -- low flags: 00
  181. -- high flags: 0000
  182. -- rect: left=196 top=101 right=116 bottom=262
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Own 2
  191.  
  192.  
  193. -- part 17 (field)
  194. -- low flags: 00
  195. -- high flags: 0000
  196. -- rect: left=196 top=85 right=100 bottom=262
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 3
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Own 1
  205.  
  206.  
  207. -- part 18 (field)
  208. -- low flags: 00
  209. -- high flags: 0000
  210. -- rect: left=309 top=85 right=100 bottom=375
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 3
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: rent 1
  219.  
  220.  
  221. -- part 19 (field)
  222. -- low flags: 00
  223. -- high flags: 0000
  224. -- rect: left=309 top=101 right=116 bottom=375
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 3
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: rent 2
  233.  
  234.  
  235. -- part 20 (field)
  236. -- low flags: 00
  237. -- high flags: 0000
  238. -- rect: left=309 top=117 right=132 bottom=375
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: rent 3
  247.  
  248.  
  249. -- part 21 (field)
  250. -- low flags: 00
  251. -- high flags: 0000
  252. -- rect: left=309 top=133 right=148 bottom=375
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 3
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: rent 4
  261.  
  262.  
  263. -- part 22 (field)
  264. -- low flags: 00
  265. -- high flags: 0000
  266. -- rect: left=309 top=149 right=164 bottom=375
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 3
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: rent 5
  275.  
  276.  
  277. -- part 23 (field)
  278. -- low flags: 00
  279. -- high flags: 0000
  280. -- rect: left=309 top=165 right=180 bottom=375
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 3
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: rent 6
  289.  
  290.  
  291. -- part 24 (field)
  292. -- low flags: 00
  293. -- high flags: 0000
  294. -- rect: left=309 top=181 right=196 bottom=375
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 0
  298. -- font id: 3
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: rent 7
  303.  
  304.  
  305. -- part 25 (field)
  306. -- low flags: 00
  307. -- high flags: 0000
  308. -- rect: left=309 top=197 right=212 bottom=375
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 0
  312. -- font id: 3
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: rent 8
  317.  
  318.  
  319. -- part 26 (field)
  320. -- low flags: 00
  321. -- high flags: 0000
  322. -- rect: left=309 top=213 right=228 bottom=375
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 0
  326. -- font id: 3
  327. -- text size: 12
  328. -- style flags: 0
  329. -- line height: 16
  330. -- part name: rent 9
  331.  
  332.  
  333. -- part 27 (field)
  334. -- low flags: 00
  335. -- high flags: 0000
  336. -- rect: left=309 top=229 right=244 bottom=375
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 0
  340. -- font id: 3
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: rent 10
  345.  
  346.  
  347. -- part 29 (button)
  348. -- low flags: 00
  349. -- high flags: A004
  350. -- rect: left=310 top=280 right=299 bottom=352
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: Total
  359. ----- HyperTalk script -----
  360.  
  361. on mouseUp
  362.   get card field "rent 2" + card field "rent 3"+ card field "rent 4" + card field "rent 5" + card field "rent 6" + card field "rent 7" + card field "rent 8" + card field "rent 9" + card field "rent 1"
  363.   put it into card field "total rent"
  364. end mouseUp
  365.  
  366.  
  367. -- part 30 (field)
  368. -- low flags: 00
  369. -- high flags: 4000
  370. -- rect: left=308 top=254 right=271 bottom=366
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 0
  374. -- font id: 3
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: total rent
  379.  
  380.  
  381. -- part 31 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=186 top=54 right=82 bottom=217
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 1015 / 1015
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: Boing
  393.  
  394.  
  395. -- part 32 (button)
  396. -- low flags: 00
  397. -- high flags: 0000
  398. -- rect: left=301 top=57 right=82 bottom=327
  399. -- title width / last selected line: 0
  400. -- icon id / first selected line: 1015 / 1015
  401. -- text alignment: 1
  402. -- font id: 0
  403. -- text size: 12
  404. -- style flags: 0
  405. -- line height: 16
  406. -- part name: Boing
  407. ----- HyperTalk script -----
  408. on mouseUp
  409.   set numberFormat to "00.00"
  410.   put card field "own 1" into card field "rent 1"
  411.   put card field "own 2" / 100 * card field "h1" of card "1st" into card field "rent 2"
  412.   put card field "own 3" into card field "rent 3"
  413.   put card field "own 4" / 100 * card field "h1" of card "1st" into card field "rent 4"
  414.   put card field "own 5" into card field "rent 5"
  415.   put card field "own 6" / 100 * card field "h1" of card "1st" into card field "rent 6"
  416.   put card field "own 7" into card field "rent 7"
  417.   put card field "own 9" * 10 / 100 into card field "rent 9"
  418.   put 0 into card field "rent 10"
  419.  
  420. end mouseUp
  421.  
  422.  
  423.  
  424. -- part contents for card part 2
  425. ----- text -----
  426. Field Work
  427. Fertilizer
  428. Seed 
  429. Chemicals
  430. Labor
  431. Spraying
  432. Harvesting
  433. Land
  434. Water
  435. Taxes
  436.  
  437. -- part contents for card part 3
  438. ----- text -----
  439. 219.00
  440.  
  441. -- part contents for card part 17
  442. ----- text -----
  443. 40.00
  444.  
  445. -- part contents for card part 16
  446. ----- text -----
  447. 20.00
  448.  
  449. -- part contents for card part 15
  450. ----- text -----
  451. 5.00
  452.  
  453. -- part contents for card part 14
  454. ----- text -----
  455. .00
  456.  
  457. -- part contents for card part 13
  458. ----- text -----
  459. 15.00
  460.  
  461. -- part contents for card part 12
  462. ----- text -----
  463. 5.00
  464.  
  465. -- part contents for card part 11
  466. ----- text -----
  467. 10.00
  468.  
  469. -- part contents for card part 10
  470. ----- text -----
  471. 92.00
  472.  
  473. -- part contents for card part 9
  474. ----- text -----
  475. 22.00
  476.  
  477. -- part contents for card part 8
  478. ----- text -----
  479. 10.00
  480.  
  481. -- part contents for card part 19
  482. ----- text -----
  483. 20.00
  484.  
  485. -- part contents for card part 21
  486. ----- text -----
  487. 06.00
  488.  
  489. -- part contents for card part 23
  490. ----- text -----
  491. 10.00
  492.  
  493. -- part contents for card part 30
  494. ----- text -----
  495. 133.2
  496.  
  497. -- part contents for card part 18
  498. ----- text -----
  499. 40.00
  500.  
  501. -- part contents for card part 20
  502. ----- text -----
  503. 25.00
  504.  
  505. -- part contents for card part 26
  506. ----- text -----
  507. 02.20
  508.  
  509. -- part contents for card part 22
  510. ----- text -----
  511. 15.00
  512.  
  513. -- part contents for card part 24
  514. ----- text -----
  515. 15.00
  516.  
  517. -- part contents for card part 27
  518. ----- text -----
  519. 0